home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Construc / DRBOBPRO.PAS
Encoding:
Pascal/Delphi Source File  |  1999-07-21  |  976 b   |  42 lines
  1. unit DrBobPro;
  2. interface
  3. uses
  4.   Classes, Provider;
  5.  
  6. type
  7.   TBDataSetProvider = class(TDataSetProvider)
  8.   public
  9.     constructor Create(AOwner: TComponent); override;
  10.     function GetRecords(Count: Integer;
  11.                     out RecsOut: Integer): OleVariant; override;
  12.   private
  13.     FBytesTransferred: LongInt;
  14.   public
  15.     property BytesTransferred: LongInt read FBytesTransferred;
  16.   end;
  17.  
  18.   procedure Register;
  19.  
  20. implementation
  21.  
  22. constructor TBDataSetProvider.Create(AOwner: TComponent);
  23. begin
  24.   inherited Create(AOwner);
  25.   FBytesTransferred := 0
  26. end;
  27.  
  28. function TBDataSetProvider.GetRecords(Count: Integer;
  29.                                   out RecsOut: Integer): OleVariant;
  30. begin
  31.   Result := inherited GetRecords(Count, RecsOut);
  32.   if RecsOut > 0 then
  33.     Inc(FBytesTransferred,DataSet.RecordSize * RecsOut);
  34.   writeln(FBytesTransferred)
  35. end;
  36.  
  37. procedure Register;
  38. begin
  39.   RegisterComponents('Dr.Bob',[TBDataSetProvider])
  40. end;
  41.  
  42. end.